home *** CD-ROM | disk | FTP | other *** search
- head 1.2;
- access;
- symbols;
- locks
- dlorre:1.2; strict;
- comment @// @;
-
-
- 1.2
- date 97.07.14.04.23.32; author dlorre; state Exp;
- branches;
- next 1.1;
-
- 1.1
- date 96.08.22.02.05.10; author dlorre; state Exp;
- branches;
- next ;
-
-
- desc
- @Oui.lib -- Object User Interface
- Projet créé en 1994
- Auteur: Dominique Lorre
- @
-
-
- 1.2
- log
- @*** empty log message ***
- @
- text
- @// $Id$
-
- #include <exec/lists.h>
- #include <libraries/gadtools.h>
-
- #include "gadgets/scroller.h"
- #include "gadgetlist.h"
-
- #include <proto/gadtools.h>
-
- // ========================================================================
- // ========================== SCROLLER CLASS =============================
- // ========================================================================
-
-
- scroller::scroller(gadgetlist *gl,
- void (window::*func)(gadget *, unsigned long, unsigned short),
- long top, long view, long total,
- unsigned short arrows) : gadget(gl, func)
- {
- gad = gl->gad = CreateGadget(SCROLLER_KIND, gl->gad, gl->ng,
- GTSC_Top, top,
- GTSC_Total, total,
- GTSC_Visible, view,
- GTSC_Arrows, arrows,
- GT_Underscore, '_',
- TAG_END) ;
- }
-
-
- @
-
-
- 1.1
- log
- @Initial revision
- @
- text
- @d1 2
- d9 1
- a9 6
- extern "C" {
- extern struct Library *GadToolsBase ;
- struct Gadget *CreateGadget( unsigned long kind, struct Gadget *gad,
- struct NewGadget *ng, Tag tag1, ... );
- #include <pragmas/gadtools_pragmas.h>
- }
- @
-